Subsetting Data with a Where Statement